integer
integer
local
local
local
set
set
loop
exitwhen
then
GetUnitLoc
else
GetUnitLoc
endif
set
GetItemCharges
GetItemCharges
GetItemTypeId
SetItemCharges
else
GetItemTypeId
endif
RemoveLocation
set
endloop
null
null
null
